home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / data / fapx / fapxset.plp < prev    next >
Text File  |  1994-11-16  |  32KB  |  1,179 lines
  1. /*    USER-ID & PASSWORDの設定    */
  2. %setID    {
  3.     %id        ID;
  4.     %pass        PassWord;
  5.     %handle        HANDLE;
  6.     %hndltyp    @case    (HNDLTYPE,
  7.                 { -h },{im({ 1})},
  8.                 { -H },{im({ 2})},
  9.                 ,{im({ 1})}
  10.                 );
  11.     loop    ({
  12.         footnote({ユーザー情報を設定してください});
  13.         SNDMSG({nyuryo_f.snd});
  14.         %a @plane(
  15.             {cユーザー情報を設定して下さい\n}|
  16.             {tユーザーＩＤ    /xxxxxxxx\n}|
  17.             {tパスワード      /xxxxxxxx\n}|
  18.             {tハンドル名      /xxxxxxxxxxxxxxx\n}|
  19.             {rＨＰの題名形式  /題名＜ハンドル/ハンドル：題名\n}|
  20.             {s                / 設定 / 取消 },
  21.             id,pass,handle,hndltyp);
  22.         %id    @head(@getline(a,1,1),{\n});
  23.         %pass    @head(@getline(a,2,1),{\n});
  24.         %handle    @head(@getline(a,3,1),{\n});
  25.         %hndltyp@head(@getline(a,4,1),{\n});
  26.         %ok    @head(@getline(a,5,1),{\n});
  27.         case    (ok,
  28.             { 1},
  29.             {
  30.             ID:=id;
  31.             PassWord:=pass;
  32.             HANDLE:=handle;
  33.             HNDLTYPE:=@case(hndltyp,{ 1},{im({ -h })},
  34.                     { 2},{im({ -H })},,{im({ -H })});
  35.             im({No});
  36.             },
  37.             { 2},{im({No})},
  38.             ,{im({No})}
  39.             );
  40.         });
  41.     };
  42.  
  43. /* ﾃﾞｨﾚｸﾄﾘの設定    */
  44. %selDIR    {
  45.     [MSG]
  46.     footnote(MSG|{まで移動してキャンセルしてください});
  47.     SNDMSG({erande_f.snd});
  48.     filesel;
  49.     im(@getcdir);
  50.     };
  51.  
  52. %setARCHIVER{
  53.     var    arch    [12];
  54.     loop    ({
  55.         SNDMSG({erande_f.snd});
  56.         footnote({圧縮プログラムを指定して下さい}|
  57.                 {  LHARC.EXE または LHA.EXE のみ可能です});
  58.         arch:=@filesel({EXE});
  59.         case    (arch={}||
  60.             (@filechk(arch)&&
  61.             (arch={LHARC.EXE}||arch={LHA.EXE}||
  62.              arch={lharc.exe}||arch={lha.exe})),
  63.             {Yes},{im({No})},
  64.             {No},{im({Yes})}
  65.             );
  66.         });
  67.     case(arch={},{No},{archiver:=@dir2(@getcdir)|arch});
  68.     };
  69.  
  70. /*    ID検索ﾘｽﾄの設定    */
  71. %setMEMBER{
  72.     footnote({ＩＤ検索用リストファイルを指定してください});
  73.     SNDMSG({erande_f.snd});
  74.     %member @filesel;
  75.     case(member<>{},{Yes},{idlist:=@dir2(@getcdir)|member});
  76.     im({Yes});
  77.     };
  78.  
  79. %setLOGF{
  80.     %chkDIR    {
  81.         [DIR]
  82.         im(DIR={}||@getchar(DIR,2,2)={:\});
  83.         };
  84.  
  85.     var    arcdir    [64];    var    wkdir    [64];    var    updir    [64];
  86.     var    fswdir    [64];    var    catdir    [64];    var    viewdir    [64];
  87.     var    npsdir    [64];    var    idlist    [64];    var    archiver[64];
  88.     var    compres    [2];    var    logmode    [2];    var    fswsubdi[64];
  89.     var    paddir    [64];    var    sysdir    [64];
  90.  
  91.     arcdir:=    LOG;
  92.     wkdir:=        TEMP;
  93.     updir:=        UP;
  94.     fswdir:=    FSW;
  95.     fswsubdir:=@case(FSWSUBDIR,
  96.             {forum},{im({1})},
  97.             ,{im({2})}
  98.             );
  99.     catdir:=    CATLOG;
  100.     viewdir:=    VIEWLOG;
  101.     npsdir:=    NPSDIR;
  102.     paddir:=    PADDIR;
  103.     sysdir:=    SYSDIR;
  104.     archiver:=    ARCHIVER;
  105.     idlist:=    MEMBER;
  106.     compres:=@case    (COMPRESS,
  107.             {Yes},{im({2})},
  108.             {No},{im({1})},
  109.             ,{im({1})}
  110.             );
  111.     logmode:=@case    (LOGmode,
  112.             {all},{im({1})},
  113.             {forum},{im({2})},
  114.             ,{im({1})}
  115.             );
  116.     loop    ({
  117.         footnote({ﾃﾞｨﾚｸﾄﾘをﾄﾞﾗｲﾌﾞ名からのﾌﾙﾊﾟｽで入力してください});
  118.         SNDMSG({nyuryo_f.snd});
  119.         %a @plane(
  120.             {tログ保存用(LOG)        /\n}|
  121.             {tテンポラリ用(TMP)      /\n}|
  122.             {tアップロード用(UPL)    /\n}|
  123.             {tフリーソフト用(FSW)    /\n}|
  124.             {r ﾌｫｰﾗﾑ名のｻﾌﾞﾃﾞｨﾚｸﾄﾘ   /作成する    /作成しない\n}|
  125.             {tＣＡＴＬＯＧ出力用(CAT)/\n}|
  126.             {t第２ログ参照用(2nd)    /\n}|
  127.             {tＮＡＰＬＰＳ参照用(NAP)/\n}|
  128.             {tＰＡＤファイル用(PAD)  /\n}|
  129.             {tＳＹＳＴＥＭ用(SYS)    /\n}|
  130.             {s 検索  /LOG/TMP/UPL/FSW/CAT/2nd/NAP/PAD/SYS\n}|
  131.             {rログ作成モード         /全体で一つ  /フォーラム毎\n}|
  132.             {rログ圧縮モード         /圧縮しない  /圧縮する    \n}|
  133.             {t圧縮プログラム(LHA.EXEorLHARC.EXE)/\n}|
  134.             {tＩＤ検索リストファイル /\n}|
  135.             {s 検索                  /圧縮ﾌﾟﾛｸﾞﾗﾑ/ID検索ﾌｧｲﾙ\n}|
  136.             {s                       / 設定 / 取消 },
  137.             arcdir,wkdir,updir,fswdir,fswsubdir,catdir,viewdir,
  138.             npsdir,paddir,sysdir,logmode,compres,archiver,idlist);
  139.         arcdir:=@head(@getline(a,1,1),{\n});
  140.         wkdir:=    @head(@getline(a,2,1),{\n});
  141.         updir:=    @head(@getline(a,3,1),{\n});
  142.         fswdir:=@head(@getline(a,4,1),{\n});
  143.         fswsubdir:=@head(@getline(a,5,1),{\n});
  144.         catdir:=@head(@getline(a,6,1),{\n});
  145.         viewdir:=@head(@getline(a,7,1),{\n});
  146.         npsdir:=@head(@getline(a,8,1),{\n});
  147.         paddir:=@head(@getline(a,9,1),{\n});
  148.         sysdir:=@head(@getline(a,10,1),{\n});
  149.         %sel1    @head(@getline(a,11,1),{\n});
  150.         logmode:=@head(@getline(a,12,1),{\n});
  151.         compres:=@head(@getline(a,13,1),{\n});
  152.         archiver:=@head(@getline(a,14,1),{\n});
  153.         idlist:=@head(@getline(a,15,1),{\n});
  154.         %sel3    @head(@getline(a,16,1),{\n});
  155.         %ok    @head(@getline(a,17,1),{\n});
  156.         case    (sel1,
  157.             { 1},
  158.             {arcdir:=@selDIR({ログ保存ディレクトリ})},
  159.             { 2},
  160.             {wkdir:=@selDIR({テンポラリディレクトリ})},
  161.             { 3},
  162.             {updir:=@selDIR({アップロードディレクトリ})},
  163.             { 4},
  164.             {fswdir:=@selDIR({フリーソフト用ディレクトリ})},
  165.             { 5},
  166.             {catdir:=@selDIR({ＣＡＴＬＯＧ出力ディレクトリ})},
  167.             { 6},
  168.             {viewdir:=@selDIR({ログ参照時の第２ディレクトリ})},
  169.             { 7},
  170.             {npsdir:=@selDIR({ＮＡＰＬＰＳ参照時のディレクトリ})},
  171.             { 8},
  172.             {paddir:=@selDIR({ＰＡＤ制御ファイル用ディレクトリ})},
  173.             { 9},
  174.             {sysdir:=@selDIR({ＳＹＳＴＥＭファイル用ディレクトリ})},
  175.             );
  176.         case    (sel3,
  177.             { 1},{setARCHIVER},
  178.             { 2},{setMEMBER}
  179.             );
  180.         case    (ok,
  181.             { 1},
  182.             {
  183.             case    (@chkDIR(arcdir)&&@chkDIR(wkdir)&&
  184.                  @chkDIR(updir)    &&@chkDIR(fswdir)&&
  185.                  @chkDIR(catdir)&&@chkDIR(viewdir)&&
  186.                  @chkDIR(npsdir),
  187.                 {Yes},
  188.                 {
  189.                 LOG:=arcdir;
  190.                 TEMP:=wkdir;
  191.                 UP:=updir;
  192.                 FSW:=fswdir;
  193.                 FSWSUBDIR:=
  194.                 @case    (fswsubdir,
  195.                     { 1},{im({forum})},
  196.                     { 2},{im({})},
  197.                     ,{im({})}
  198.                     );
  199.                 CATLOG:=catdir;
  200.                 VIEWLOG:=viewdir;
  201.                 NPSDIR:=npsdir;
  202.                 PADDIR:=paddir;
  203.                 SYSDIR:=sysdir;
  204.                                 ARCHIVER:=archiver;
  205.                 MEMBER:=idlist;
  206.                 COMPRESS:=
  207.                 @case    (compres,
  208.                     { 1},{im({No})},
  209.                     { 2},
  210.                     {
  211.                     case    (@filechk(archiver),
  212.                         {No},{setARCHIVER});
  213.                     im({Yes});
  214.                     },
  215.                     ,{im({No})}
  216.                     );
  217.                 LOGmode:=
  218.                 @case    (logmode,
  219.                     { 1},{im({all})},
  220.                     { 2},{im({forum})},
  221.                     ,{im({all})}
  222.                     );
  223.                 im({No});
  224.                 },
  225.                 {No},{im({Yes})}
  226.                 );
  227.             },
  228.             { 2},{im({No})},
  229.             ,{im(!(sel1={ 0}&&sel3={ 0}))}
  230.             );
  231.         });
  232.     };
  233.  
  234. /*    背景色の設定    */
  235. %setCOLOR{
  236.     case(R,{},{R:=0});
  237.     case(G,{},{G:=0});
  238.     case(B,{},{B:=0});
  239.     SNDMSG({erande_f.snd});
  240.     footnote({背景色の変更をします});
  241.     loop({select({背景色の変更をします}|
  242.         {  現在は r=}|R|{ g=}|G|{ b=}|B|{ です},
  243.         Wtime4,{im({No})},
  244.         {赤↑},{case(R<251,{Yes},{R:=R+5;backclr(R,G,B)});im({Yes})},
  245.         {赤↓},{case(R>  4,{Yes},{R:=R-5;backclr(R,G,B)});im({Yes})},
  246.         {緑↑},{case(G<251,{Yes},{G:=G+5;backclr(R,G,B)});im({Yes})},
  247.         {緑↓},{case(G>  4,{Yes},{G:=G-5;backclr(R,G,B)});im({Yes})},
  248.         {青↑},{case(B<251,{Yes},{B:=B+5;backclr(R,G,B)});im({Yes})},
  249.         {青↓},{case(B>  4,{Yes},{B:=B-5;backclr(R,G,B)});im({Yes})},
  250.         {終了},{im({No})})});
  251.     };
  252.  
  253. /*    音声ﾒｯｾｰｼﾞﾌｧｲﾙｺﾋﾟｰ    */
  254. %copySND{
  255.     [snddir]    /* 最後は｢\｣であること */
  256.     display    (BELL);
  257.     footnote({システムＣＤをセットして下さい});
  258.     select({システムＣＤをセットして下さい},
  259.         Wtime4,,
  260.         { ＯＫ },
  261.         {
  262.         case    (@setcdir({q:\fj2\msg}),
  263.             {Yes},
  264.             {
  265.             footnote({erande_f.sndをコピーします});
  266.             command({copy order\erande_f.snd }|snddir|{*.*});
  267.             footnote({nyuryo_f.sndをコピーします});
  268.             command({copy order\nyuryo_f.snd }|snddir|{*.*});
  269.             footnote({kaknin_f.sndをコピーします});
  270.             command({copy order\kaknin_f.snd }|snddir|{*.*});
  271.             footnote({owata_f.sndをコピーします});
  272.             command({copy info\owata_f.snd }|snddir|{*.*});
  273.             footnote({okasi_f.sndをコピーします});
  274.             command({copy warning\okasi_f.snd }|snddir|{*.*});
  275.             footnote({jikan_f.sndをコピーします});
  276.             command({copy info\jikan_f.snd }|snddir|{*.*});
  277.             footnote({});
  278.             });
  279.         },{ ＮＯ });
  280.     };
  281.  
  282. /*    音声ﾒｯｾｰｼﾞﾌｧｲﾙの設定    */
  283. %setSNDDIR{
  284.     SNDMSG({nyuryo_f.snd});
  285.     footnote({ディレクトリ名を入力して下さい});
  286.     %sound    @input({音声ﾒｯｾｰｼﾞﾌｧｲﾙを格納するﾃﾞｨﾚｸﾄﾘを指定して下さい\n}
  287.             |{  ﾙｰﾄﾃﾞｨﾚｸﾄﾘ以外は最後の｢\｣は不要です\n}
  288.             |{  例  A:\MOPTERM\SOUND},,SOUND);
  289.     case    (@getchar(sound,2,2)={:\},
  290.         {No},setSNDDIR,
  291.         {Yes},{SOUND:={}}
  292.         );
  293.     %sound2    @dir2(sound);
  294.     mkdir2(sound);
  295.     case(    @filechk(sound2|{erande_f.snd})&&
  296.         @filechk(sound2|{nyuryo_f.snd})&&
  297.         @filechk(sound2|{kaknin_f.snd})&&
  298.         @filechk(sound2|{okasi_f.snd})&&
  299.         @filechk(sound2|{owata_f.snd})&&
  300.         @filechk(sound2|{jikan_f.snd}),
  301.         {No},{copySND(sound2)});
  302.     VBELL:={No};
  303.     SOUND:=sound;
  304.     SOUND2:=@dir2(SOUND);
  305.     };
  306.  
  307. /*    belfieの設定    */
  308. %setBELFIL{
  309.     SNDMSG({erande_f.snd});
  310.     footnote({ベルの代わりに鳴らす音声ファイルを指定して下さい});
  311.     %bell    @filesel({SND});
  312.     %bell2    @dir2(@getcdir)|bell;
  313.     case(bell,{},{BELFIL:={}},,{BELFIL:=bell2});
  314.     case(@tail(BELFIL,{.})={snd}||@tail(BELFIL,{.})={SND},
  315.         {Yes},{bellfile(BELFIL)});
  316.     SOUND:={};
  317.     SOUND2:={};
  318.     VBELL:={No};
  319.     };
  320.  
  321. /*    入力ﾌﾟﾛﾝﾌﾟﾄの設定    */
  322. %setPRMPT{
  323.     SNDMSG({erande_f.snd});
  324.     footnote({入力時のプロンプト方法を指定して下さい});
  325.     select({入力時のプロンプト方法を指定して下さい},
  326.         Wtime4,
  327.         {case(VBELL,{Yes},,,{VBELL:={No}})},
  328.         {   音声メッセージ   },
  329.         {VBELL:={No};BELL:={};setSNDDIR},
  330.         {      ブザー音      },
  331.         {SOUND:={};SOUND2:={};VBELL:={No};BELL:=@xc({07});BELFIL:={}},
  332.         {   画面フラッシュ   },
  333.         {SOUND:={};SOUND2:={};VBELL:={Yes};BELL:=@xc({07});BELFIL:={}},
  334.         {指定のｓｎｄファイル},
  335.         {VBELL:={No};BELL:=@xc({07});setBELFIL},
  336.         {   プロンプト無し   },
  337.         {SOUND:={};SOUND2:={};VBELL:={No};BELL:={};BELFIL:={}});
  338.     visibell(VBELL);
  339.     };
  340.  
  341. /*    かな漢字変換ﾓｰﾄﾞ初期値の設定    */
  342. %setOAK    {
  343.     var    oakj    [2];
  344.     var    oakr    [2];
  345.     var    oakk    [2];
  346.     var    oakz    [2];
  347.     loop    ({
  348.         oakj:=@YesNo(@exist(OAK,{J}),{2});
  349.         oakr:=@YesNo(@exist(OAK,{R}),{2});
  350.         %k @exist(OAK,{K});
  351.         %h @exist(OAK,{H});
  352.         case(k={No}&&h={No},{Yes},{oakk:={3}});
  353.         case(k,{Yes},{oakk:={2}});
  354.         case(h,{Yes},{oakk:={1}});
  355.         oakz:=@YesNo(@exist(OAK,{Z}),{2});
  356.         footnote({かな漢字変換モードを設定してください});
  357.         SNDMSG({erande_f.snd});
  358.         %a @plane(
  359.             {cかな漢字変換モードの初期値を設定してください\n}|
  360.             {r漢字辞書モード   /使用する/使わない\n}|
  361.             {r日本語入力モード /ローマ字/かな\n}|
  362.             {rカナモード       /ひらがな/カタカナ/英字\n}|
  363.             {r全角モード       /全角    /半角\n}|
  364.             {s                 /  設定  /  取消  },
  365.             oakj,oakr,oakk,oakz);
  366.         oakj:=    @head(@getline(a,1,1),{\n});
  367.         oakr:=    @head(@getline(a,2,1),{\n});
  368.         oakk:=    @head(@getline(a,3,1),{\n});
  369.         oakz:=    @head(@getline(a,4,1),{\n});
  370.         %ok    @head(@getline(a,5,1),{\n});
  371.         case    (ok,
  372.             { 1},
  373.             {
  374.             OAK:={};
  375.             case(oakj,{ 1},{OAK:=OAK|{J}});
  376.             case(oakr,{ 1},{OAK:=OAK|{R}});
  377.             case(oakk,{ 1},{OAK:=OAK|{H}},{ 2},{OAK:=OAK|{K}});
  378.             case(oakz,{ 1},{OAK:=OAK|{Z}});
  379.             case(OAK<>{},{Yes},{setoak(OAK)});
  380.             im({No});
  381.             },
  382.             ,{im({No})});
  383.         });
  384.     };
  385.  
  386. /*    ログ参照時の設定をする    */
  387. %setREFR{
  388.     var     Info    [2];
  389.     var     Dive    [2];
  390.     var     Dord    [2];
  391.     var     Ford    [2];
  392.  
  393.     %sitst    {
  394.         case(STYPE,
  395.             {x},{im({ 特殊 })},{n},{im({ﾌｧｲﾙ名})},
  396.             {e},{im({拡張子})},{s},{im({サイズ})},
  397.             {d},{im({ 日付 })},{u},{im({非ｿｰﾄ })},
  398.             ,{im({ 特殊 })});
  399.         };
  400.     Info:=    @case(INFO,{Yes},{im({ 1})},{Def},{im({ 2})},
  401.             {No},{im({ 3})},,{im({ 1})});
  402.     Dive:=    @YesNo(DIVE,{1});
  403.     Dord:=    @case(DORD,{+},{im({ 1})},{-},{im({ 2})},,{im({ 1})});
  404.     Ford:=    @case(FORD,{+},{im({ 1})},{-},{im({ 2})},,{im({ 2})});
  405.     loop    ({
  406.         footnote({ログ参照時の条件を選択してください});
  407.         SNDMSG({erande_f.snd});
  408.         %a @plane(
  409.             {cログ参照時の条件を選択してください\n}|
  410.             {r  情報表示            /する/定義ﾌｧｲﾙ/しない\n}|
  411.             {r  ﾃﾞｨﾚｸﾄﾘ再帰検索     /する/しない\n}|
  412.             {c  ソート方法    現在 [}|@sitst|{]\n}|
  413.             {s               / 特殊 /ﾌｧｲﾙ名/拡張子}|
  414.                 {/サイズ/ 日付 /非ｿｰﾄ \n}|
  415.             {r  ソート順序(ﾃﾞｨﾚｸﾄﾘ) /昇順/降順\n}|
  416.             {r  ソート順序(ﾌｧｲﾙ)    /昇順/降順\n}|
  417.             {c  ｻｲｽﾞｿｰﾄの際のｿｰﾄ順序(ﾃﾞｨﾚｸﾄﾘ)及び、\n}|
  418.             {c    非ｿｰﾄの際のｿｰﾄ順序の設定は意味を持ちません\n}|
  419.             {s                      / 設定 / 取消 },
  420.             Info,Dive,Dord,Ford);
  421.         Info:=    @head(@getline(a,1,1),{\n});
  422.         Dive:=    @head(@getline(a,2,1),{\n});
  423.         %sel1    @head(@getline(a,3,1),{\n});
  424.         Dord:=    @head(@getline(a,4,1),{\n});
  425.         Ford:=    @head(@getline(a,5,1),{\n});
  426.         %ok    @head(@getline(a,6,1),{\n});
  427.         case(sel1,{ 1},{STYPE:={x};im({Yes})},
  428.             { 2},{STYPE:={n};im({Yes})},
  429.             { 3},{STYPE:={e};im({Yes})},
  430.             { 4},{STYPE:={s};im({Yes})},
  431.             { 5},{STYPE:={d};im({Yes})},
  432.             { 6},{STYPE:={u};im({Yes})});
  433.         case    (ok,
  434.             { 1},
  435.             {
  436.             INFO:=    @case(Info,{ 1},{im({Yes})},
  437.                     { 2},
  438.                     {
  439.                     %tfl CDIR2|{FAPXTXL.SET};
  440.                     case(@filechk(tfl),{No},
  441.                         {
  442.                         write(tfl,
  443.                             {&MYFORUM=}|LOG2|
  444.                             {MYFORUM.LOG}|CRLF);
  445.                         });
  446.                     im({Def})
  447.                     },
  448.                     { 3},{im({No})},,{im({Yes})});
  449.             DIVE:=    @case    (Dive,
  450.                     { 1},{im({Yes})},{ 2},{im({No})},
  451.                     ,{im({Yes})});
  452.             DORD:=    @case    (Dord,
  453.                     { 1},{im({+})},{ 2},{im({-})},
  454.                     ,{im({+})});
  455.             FORD:=    @case    (Ford,
  456.                     { 1},{im({+})},{ 2},{im({-})},
  457.                     ,{im({-})});
  458.             im({No});
  459.             },
  460.             { 2},{im({No})},
  461.             ,{im(sel1!=0)}
  462.             );
  463.         });
  464.     };
  465.  
  466. /*    ＯＰＥＮＩＮＧ画面選択        */
  467. %KAKUNIN{    /* NAPLPSﾌｧｲﾙ内容確認 */
  468.     var    file1    [64];
  469.     setcdir2(NPSDIR);
  470.     loop    ({
  471.         footnote({ＮＡＰＬＰＳファイルを選択してください});
  472.         file1:=@filesel({NPB});
  473.         case(file1<>{},{Yes},{file1:=@dir2(@getcdir)|file1});
  474.         case    (file1={}||@filechk(file1)={No},
  475.             {Yes},{file1:={}},
  476.             {No},
  477.             {
  478.             footnote({オープニング画面を確認します});
  479.             CloseAllMemo;
  480.             naplps(file1);
  481.             %a    @loop    ({
  482.                     footnote({指定 次 取消},{b});
  483.                     waitx();
  484.                     case    (@xtype,
  485.                         101,{im(file1)},
  486.                         201,{im(file1)},
  487.                         102,{im({next})},
  488.                         202,{im({next})},
  489.                         103,{im({cancel})},
  490.                         203,{im({cancel})},
  491.                         ,{im({Yes})}
  492.                         );
  493.                     });
  494.             napend;
  495.             case    (a,
  496.                 {next},{im({Yes})},
  497.                 {cancel},{file1:={};im({No})},
  498.                 ,{im({No})}
  499.                 );
  500.             });
  501.         });
  502.     setcdir2(CDIR);
  503.     im(file1);
  504.     };
  505.  
  506. %setOPNG{
  507.     var    opse    [64];
  508.     var    opfi    [64];
  509.     %npm     {NAPLPS データファイルを指定して下さい};
  510.     %opm    {OPENING画面にしま};
  511.  
  512.     opse:={};
  513.     opfi:={};
  514.     footnote(npm);
  515.     loop    ({
  516.         case(opfi={},{No},{opse:=opfi});
  517.         %a @plane({cオープニング画面の選択\n}|
  518.             {c}|npm|{\n}|
  519.             {t             /\n}|
  520.             {s                    /検索\n}|
  521.             {s             / 設定 / 取消\n},opse);
  522.         opfi:=    @head(@getline(a,1,1),{\n});
  523.         %sel    @head(@getline(a,2,1),{\n});
  524.         %ok    @head(@getline(a,3,1),{\n});;
  525.         case    (sel,{ 1},{opse:=@KAKUNIN;im({Yes})});
  526.         case    (ok,
  527.             { 1},
  528.             {
  529.             case    (opfi=CDIR2|{FAPXOPEN.NPB},
  530.                 {Yes},
  531.                 {footnote({別の}|npm);im({Yes})},
  532.                 {No},
  533.                 {
  534.                 case    (@filechk(opfi),
  535.                     {No},
  536.                     {footnote({存在する}|npm);im({Yes})},
  537.                     {Yes},
  538.                     {
  539.                     case(@filechk(CDIR2|{FAPXOPEN.NPB}),
  540.                         {Yes},
  541.                         {display({\n 既に存在している}|
  542.                             {ので上書きします\n})});
  543.                     footnote(opfi|{を}|opm|{す});
  544.                     copyfile(opfi,CDIR2|{FAPXOPEN.NPB});
  545.                     footnote({});
  546.                     im({No});
  547.                     });
  548.                 });
  549.             },
  550.             { 2},{im({No})}
  551.             );
  552.         });
  553.     };
  554.  
  555. /*    スケルトンファイルの設定関連    */
  556. %getSkeDir    {
  557.     var    skedir        [4096];
  558.     var    skedirtemp    [4096];
  559.     var    skefile        [80];
  560.     %sketemp    TEMP2|{skefiles.tmp};
  561.     skedir:={};
  562.     setcdir(CDIR);
  563.     dispoff(!DEBUG);
  564.     command({txl -dir -i -F }|PADDIR2|{ > }|sketemp);
  565.     dispoff({No});
  566.     case    (@filechk(sketemp),
  567.         {Yes},
  568.         {
  569.         skedirtemp:=@read(sketemp);
  570.         loop    ({
  571.             skefile:=@head(skedirtemp,{\n});
  572.             skedirtemp:=@body(skedirtemp,{\n});
  573.             case    (@body(skefile,{.},{E})={SK},
  574.                 {Yes},{skedir:=skedir|skefile|{\n}});
  575.             im(skedirtemp<>{});
  576.             });
  577.         },
  578.         {No},
  579.         {
  580.         case(DEBUG,{Yes},{display(logdir|{ は空です\n})});
  581.         footnote({ スケルトンファイルが見つかりません });wait(1);
  582.         });
  583.     im(skedir);
  584.     };
  585.  
  586. %editSke{
  587.     [memono,skeName]
  588.     var    flg    [6];
  589.     case(DEBUG,{Yes},{display({editSke(}|skeName|{)\n})});
  590.  
  591.     %readSkelton{
  592.         case(@mlast>=memoSke,{Yes},{mclear(memoSke)});
  593.         madd(memoSke,@case(@filechk(skeFile),
  594.                 {Yes},{read(skeFile)},,{im({})}));
  595.         };
  596.     
  597.     %macroHelp{
  598.         case(@mlast>=memoHelp,{Yes},{mclear(memoHelp)});
  599.         madd(memoHelp,
  600.             skeName|{ 用スケルトンファイル編集\n\n}|
  601.             {==========  マクロ一覧  ==========\n}|
  602.             { ﾌｫｰﾗﾑ/ＨＰ/PATIO 名称     ... $f\n}|
  603. /*            { ﾌｫｰﾗﾑ/ＨＰ/PATIO ベース名 ... $F  FAPX での拡張\n}|*/
  604.             { 会議室 No                 ... $m\n}|
  605.             { 発言(コメント先) No       ... $n\n}|
  606.             { 発言タイトル              ... $t\n}|
  607.             { 発言タイトル(RE:なし)     ... $T\n}|
  608. /*            { 発言タイトル              ... $r  }|        */
  609. /*            {PADMES との互換のため\n}|            */
  610. /*            { 「RE:」マーク             ... $R  }|        */
  611. /*            {PADMES との互換のため\n}|            */
  612.             { コメント先ハンドル        ... $h\n}|
  613.             { コメント先ＩＤ            ... $i\n}|
  614.             { 現在の日付                ... $d\n}|
  615.             { 現在の時刻                ... $j\n}|
  616.             { 自分のハンドル            ... $s\n});
  617. /*            { 自分のハンドル            ... $s  }|        */
  618. /*            {PADMES のように右寄せはしない\n});        */
  619.         };
  620.  
  621.     %skeForum{
  622.         InactMemo;
  623.         madd(memoSke,@case(@filechk(PADDIR2|{forum.ske}),
  624.             {Yes},{read(PADDIR2|{forum.ske})},
  625.             {No},
  626.             {
  627.             im(    {  #$n  $h さん\n\n\n\n}|
  628.                 {                      }|
  629.                 {                                     $s\n});
  630.             }));
  631.         mopen(memoSke,0,181,639,459,{w});
  632.         };
  633.  
  634.     %skeHP    {
  635.         InactMemo;
  636.         madd(memoSke,@case(@filechk(PADDIR2|{hp.ske}),
  637.             {Yes},{read(PADDIR2|{hp.ske})},
  638.             {No},
  639.             {
  640.             im(    {  #$n  $h さん\n\n\n\n}|
  641.                 {                      }|
  642.                 {                                     $s\n});
  643.             }));
  644.         mopen(memoSke,0,181,639,459,{w});
  645.         };
  646.  
  647.     %skePatio{
  648.         InactMemo;
  649.         madd(memoSke,@case(@filechk(PADDIR2|{patio.ske}),
  650.             {Yes},{read(PADDIR2|{patio.ske})},
  651.             {No},
  652.             {
  653.             im(    {  #$n  $h さん\n\n\n\n}|
  654.                 {                      }|
  655.                 {                                     $s\n});
  656.             }));
  657.         mopen(memoSke,0,181,639,459,{w});
  658.         };
  659.  
  660.     %skeMail{
  661.         InactMemo;
  662.         madd(memoSke,@case(@filechk(PADDIR2|{mail.ske}),
  663.             {Yes},{read(PADDIR2|{mail.ske})},
  664.             {No},
  665.             {
  666.             im(    {  $h さん\n\n\n\n}|
  667.                 {                 }|
  668.                 {                 }|
  669.                 {                         $s\n});
  670.             }));
  671.         mopen(memoSke,0,181,639,459,{w});
  672.         };
  673.  
  674.     %skeWPNC{
  675.         InactMemo;
  676.         madd(memoSke,@case(@filechk(PADDIR2|{wpnc.ske}),
  677.             {Yes},{read(PADDIR2|{wpnc.ske})},
  678.             {No},
  679.             {
  680.             im(    {  $i さん\n\n\n\n}|
  681.                 {                 }|
  682.                 {                 }|
  683.                 {                         $s\n});
  684.             }));
  685.         mopen(memoSke,0,181,639,459,{w});
  686.         };
  687.  
  688.     %write    {
  689.         InactMemo;
  690.         SNDMSG({kaknin_f.snd});
  691.         footnote(skeName|{ 用スケルトンの編集を終了しますか？});
  692.         select(skeName|{ 用スケルトンの編集を終了しますか？},
  693.             Wtime4,{footnote({});im({Yes})},
  694.             {  は  い  },
  695.             {footnote({});mwrite(skeFile,memoSke);im({No})},
  696.             {  いいえ  },
  697.             {footnote({});im({Yes})}
  698.             );
  699.         };
  700.  
  701.     %cancel    {
  702.         InactMemo;
  703.         SNDMSG({kaknin_f.snd});
  704.         footnote({編集中の }|skeName|{ 用スケルトンを取消しますか？});
  705.         select({編集中の }|skeName|{ 用スケルトンを取消しますか？},
  706.             Wtime4,{footnote({});im({Yes})},
  707.             {  は  い  },{footnote({});im({No})},
  708.             {  いいえ  },{footnote({});im({Yes})}
  709.             );
  710.         };
  711.  
  712.     %skeFile    PADDIR2|skeName|{.ske};
  713.     %memoSke    memono+2;
  714.     %memoHelp    memono+1;
  715.  
  716.     CloseAllMemo;
  717.     macroHelp;
  718.     readSkelton;
  719.     mopen(memoHelp,0,21,639,240,{r});
  720.     mclose(1);
  721.     mopen(memoSke,0,181,639,459,{w});
  722.     loop    ({
  723.         footnote({終了取消            }|
  724.              {Foru HP PatiMAILWPNC}
  725.             ,{b});
  726.         waitx();
  727.         case    (@xtype,
  728.             101,{        flg:={Ok}},
  729.             201,{        flg:={Ok}},
  730.             102,{        flg:={Cancel}},
  731.             202,{        flg:={Cancel}},
  732.             106,{skeForum;    flg:={Yes}},
  733.             206,{skeForum;    flg:={Yes}},
  734.             107,{skeHP;    flg:={Yes}},
  735.             207,{skeHP;    flg:={Yes}},
  736.             108,{skePatio;    flg:={Yes}},
  737.             208,{skePatio;    flg:={Yes}},
  738.             109,{skeMail;    flg:={Yes}},
  739.             209,{skeMail;    flg:={Yes}},
  740.             110,{skeWPNC;    flg:={Yes}},
  741.             210,{skeWPNC;    flg:={Yes}},
  742.             ,{        flg:={Yes}}
  743.             );
  744.         case    (flg,
  745.             {Ok},        {write},
  746.             {Cancel},    {cancel},
  747.             ,{im({Yes})}
  748.             );
  749.         });
  750.  
  751.     DeleteMemo(memono+1);
  752.     mopen(memono);
  753.     };
  754.  
  755. %newSke    {
  756.     [memono]
  757.     var    logtype    [2];
  758.     var    skename    [8];
  759.     var    selname    [2];
  760.     var    ok    [2];
  761.  
  762.     %getForumName{
  763.         [memono]
  764.         %forum    @tail(@Sline(320,21,LOG2|{MYFORUM.LOG}),{ });
  765.         mopen(memono);
  766.         case    (@nochar(forum)>8,
  767.             {Yes},{im({})},
  768.             ,{im(forum)}
  769.             );
  770.         };
  771.     %getIdName{
  772.         [memono]
  773.         %id    @head(@Sline(320,21,MEMBER),{ });
  774.         mopen(memono);
  775.         case    (@nochar(id)>8,
  776.             {Yes},{im({})},
  777.             ,{im(id)}
  778.             );
  779.         };
  780.  
  781.     case(DEBUG,{Yes},{display({newSke\n})});
  782.     logtype:={ 1};
  783.     skename:={};
  784.     selname:={ 1};
  785.     loop    ({
  786.         SNDMSG({erande_f.snd});
  787.         %a    @plane(    {cスケルトンファイルの指定\nc\n}|
  788.             {rログタイプ/FORUM / ＨＰ /PATIO / MAIL / WPNC \n}|
  789.             {t個別指定  /xxxxxxxx\n}|
  790.             {s    選択  /FORUM / ＩＤ \nc\n}|
  791.             {s          / 作成 / 個別 /取り消し\n},
  792.             logtype,skename);
  793.         logtype:=@head(@getline(a,1,1),{\n});
  794.         skename:=@head(@getline(a,2,1),{\n});
  795.         selname:=@head(@getline(a,3,1),{\n});
  796.         ok:=@head(@getline(a,4,1),{\n});
  797.         case    (selname,
  798.             { 1},{skename:=@getForumName(memono);im({Yes})},
  799.             { 2},{skename:=@getIdName(memono);im({Yes})},
  800.             ,
  801.             {
  802.             case    (ok,
  803.                 { 1},
  804.                 {
  805.                 case    (logtype,
  806.                     { 1},{skename:={FORUM}},
  807.                     { 2},{skename:={HP}},
  808.                     { 3},{skename:={PATIO}},
  809.                     { 4},{skename:={MAIL}},
  810.                     { 5},{skename:={WPNC}}
  811.                     );
  812.                 im({No});
  813.                 },
  814.                 { 2},
  815.                 {
  816.                 case    (skename={},
  817.                     {Yes},
  818.                     {
  819.                     footnote({ スケルトンファイル名}|
  820.                         {を指定してください });
  821.                     wait(1);
  822.                     im({Yes});
  823.                     },
  824.                     ,{im({No})}
  825.                     );
  826.                 },
  827.                 ,{im({No})}
  828.                 );
  829.                 
  830.             });
  831.         });
  832.     case    (ok={ 1} || ok={ 2},
  833.         {Yes},{editSke(memono,skename)}
  834.         );
  835.     };
  836.  
  837. %setSKELETON{
  838.     %memono    @mlast+1;
  839.     case(DEBUG,{Yes},{display({setSKELETON\n})});
  840.  
  841.     %getSkename{
  842.         [memono,linenum]
  843.         case(DEBUG,{Yes},{display({getSkename\n})});
  844.         head(@getline(@memo(memono),linenum,1),{.});
  845.         };
  846.     %editSkeCheck{
  847.         [memono, skename]
  848.         case    (skename,
  849.             {}, {newSke(memono)},
  850.             ,{editSke(memono,skename)}
  851.             );
  852.     };
  853.     
  854.  
  855.     loop    ({
  856.         InactMemo;
  857.         case(@mlast>=memono,{Yes},{mclear(memono)});
  858.         madd(memono,@getSkeDir);
  859.         mopen(memono,0,21,639,459,{r});
  860.         SNDMSG({erande_f.snd});
  861.         footnote({終了変更追加},{b});
  862.         waitx();
  863.         case    (@xtype,
  864.             101,{im({No})},
  865.             201,{im({No})},
  866.             102,
  867.             {
  868.             editSkeCheck(memono,@getSkename(memono,@xlinenum));
  869.             im({Yes});
  870.             },
  871.             202,
  872.             {
  873.             editSkeCheck(memono,@getSkename(memono,@xlinenum));
  874.             im({Yes});
  875.             },
  876.             103,{newSke(memono);im({Yes})},
  877.             203,{newSke(memono);im({Yes})},
  878.             memono,
  879.             {
  880.             editSkeCheck(memono,@getSkename(memono,@xlinenum));
  881.             im({Yes});
  882.             },
  883.             ,{im({Yes})}
  884.             );
  885.         });
  886.     DeleteMemo(memono);
  887.     };
  888.  
  889. /*    その他の設定をする    */
  890. %setETC    {
  891.     var    Nattou    [2];
  892.     var    Click    [2];
  893.     var    Tab    [2];
  894.     var    Lock    [2];
  895.     var    Opning    [2];
  896.  
  897.     Nattou:=@YesNo(NATTOU,{1});
  898.     Click:=    @YesNo(CLICK,{2});
  899.     Tab:=    @case    (TAB,
  900.             {1},{im({1})},{2},{im({2})},
  901.             {4},{im({3})},{8},{im({4})},
  902.             ,{im({4})});
  903.     Lock:=    @YesNo(LOCK,{2});
  904.     Opning:=@YesNo(OPENING,{1});
  905.     loop    ({
  906.         footnote({その他の条件を設定してください});
  907.         SNDMSG({erande_f.snd});
  908.         %a @plane(
  909.             {cその他の条件を選択してください\n}|
  910.             {s              /       背景色の設定       \n}|
  911.             {s              /   プロンプト方法の設定   \n}|
  912.             {s              / かな漢字変換初期値の設定 \n}|
  913.             {s              /     ログ参照時の設定     \n}|
  914.             {s              / スケルトンファイルの設定 \n}|
  915.             {r納豆スクロール        /する/しない\n}|
  916.             {rクリック音出力        /する/しない\n}|
  917.             {rタブ数                /１/２/４/８\n}|
  918.             {rシフトロック          /する/しない\n}|
  919.             {rオープニング画面表示  /する/しない\n}|
  920.             {s  オープニング画面選択/ 選択 \n}|
  921.             {s                      / 設定 / 取消 },
  922.             Nattou,Click,Tab,Lock,Opning);
  923.         %sel1    @head(@getline(a,1,1),{\n});
  924.         %sel2    @head(@getline(a,2,1),{\n});
  925.         %sel3    @head(@getline(a,3,1),{\n});
  926.         %sel4    @head(@getline(a,4,1),{\n});
  927.         %sel6    @head(@getline(a,5,1),{\n});
  928.         Nattou:=@head(@getline(a,6,1),{\n});
  929.         Click:=    @head(@getline(a,7,1),{\n});
  930.         Tab:=    @head(@getline(a,8,1),{\n});
  931.         Lock:=    @head(@getline(a,9,1),{\n});
  932.         Opning:=@head(@getline(a,10,1),{\n});
  933.         %sel5    @head(@getline(a,11,1),{\n});
  934.         %ok    @head(@getline(a,12,1),{\n});
  935.         case(sel1,{ 1},{setCOLOR;im({Yes})});
  936.         case(sel2,{ 1},{setPRMPT;im({Yes})});
  937.         case(sel3,{ 1},{setOAK;im({Yes})});
  938.         case(sel4,{ 1},{setREFR;im({Yes})});
  939.         case(sel5,{ 1},{setOPNG;im({Yes})});
  940.         case(sel6,{ 1},{setSKELETON;im({Yes})});
  941.         case    (ok,
  942.             { 1},
  943.             {
  944.             NATTOU:=@case    (Nattou,
  945.                     { 1},{nattou({Yes});im({Yes})},
  946.                     { 2},{nattou({No});im({No})},
  947.                     ,{im({})}
  948.                     );
  949.             CLICK:=@case    (Click,
  950.                     { 1},{click({Yes});im({Yes})},
  951.                     { 2},{click({No});im({No})},
  952.                     ,{im({})}
  953.                     );
  954.             TAB:=@case    (Tab,
  955.                     { 1},{tab({1});im({1})},
  956.                     { 2},{tab({2});im({2})},
  957.                     { 3},{tab({4});im({4})},
  958.                     { 4},{tab({8});im({8})},
  959.                     ,{im({})}
  960.                     );
  961.             LOCK:=@case    (Lock,
  962.                     { 1},{shiftl({Yes});im({Yes})},
  963.                     { 2},{shiftl({No});im({No})},
  964.                     ,{im({})}
  965.                     );
  966.             OPENING:=@case    (Opning,
  967.                     { 1},{im({Yes})},
  968.                     { 2},{im({No})},
  969.                     ,{im({Yes})}
  970.                     );
  971.             im({No});
  972.             },
  973.             { 2},{im({No})},
  974.             ,{im(sel1==1||sel2==1||sel3==1||sel4==1)}
  975.             );
  976.         });
  977.     };
  978.  
  979. /*    ﾌｧｲﾙﾏﾈｰｼﾞｬの選択    */
  980. %setFMGR{
  981.     %mgr    @case(FMGR,{},{im({標準ﾌｧｲﾙﾏﾈｰｼﾞｬ})},,{im(FMGR)});
  982.     SNDMSG({erande_f.snd});
  983.     footnote({ﾌｧｲﾙﾏﾈｰｼﾞｬを選択して下さい  現在は }|mgr|{ です});
  984.     FMGR:=@loop    ({select({ファイルマネージャを選択してください},
  985.                 Wtime4,{im(FMGR)},
  986.                 {  標準ファイルマネージャ  },{im({})},
  987.                 { 任意のファイルマネージャ },
  988.                 {
  989.                 footnote({ファイルマネージャ用のオート}|
  990.                     {パイロットを指定して下さい});
  991.                 %fmgr    @filesel();
  992.                 case(fmgr,{},{im({})},
  993.                     ,{im(@dir2(@getcdir)|fmgr)});
  994.                 });
  995.             });
  996.     };
  997.  
  998. /*    設定情報をﾌｧｲﾙに保存する    */
  999. %writeSET{
  1000.     [file]
  1001.     setcdir(CDIR);
  1002.     dispoff(!DEBUG);
  1003.     command({copy }|file|{ }|@body(file,,{.})|{.BAK});
  1004.     delfile(file);
  1005.     dispoff({No});
  1006.     write(file,
  1007.         {ID      :=}|@xc({7b})|ID|@xc({7d})|{;\n}|
  1008.         {PassWord:=}|@xc({7b})|PassWord|@xc({7d})|{;\n}|
  1009.         {HANDLE  :=}|@xc({7b})|HANDLE|@xc({7d})|{;\n}|
  1010.         {HNDLTYPE:=}|@xc({7b})|HNDLTYPE|@xc({7d})|{;\n}|
  1011.         {ROAD1   :=}|@xc({7b})|ROAD1|@xc({7d})|{;\n}|
  1012.         {ROAD2   :=}|@xc({7b})|ROAD2|@xc({7d})|{;\n}|
  1013.         {ROAD3   :=}|@xc({7b})|ROAD3|@xc({7d})|{;\n}|
  1014.         {MODEM   :=}|@xc({7b})|MODEM|@xc({7d})|{;\n}|
  1015.         {DIAL    :=}|@xc({7b})|DIAL|@xc({7d})|{;\n}|
  1016.         {TEMP    :=}|@xc({7b})|TEMP|@xc({7d})|{;\n}|
  1017.         {LOG     :=}|@xc({7b})|LOG|@xc({7d})|{;\n}|
  1018.         {UP      :=}|@xc({7b})|UP|@xc({7d})|{;\n}|
  1019.         {FSW     :=}|@xc({7b})|FSW|@xc({7d})|{;\n}|
  1020.         {FSWSUBDI:=}|@xc({7b})|FSWSUBDIR|@xc({7d})|{;\n}|
  1021.         {CATLOG  :=}|@xc({7b})|CATLOG|@xc({7d})|{;\n}|
  1022.         {VIEWLOG :=}|@xc({7b})|VIEWLOG|@xc({7d})|{;\n}|
  1023.         {NPSDIR  :=}|@xc({7b})|NPSDIR|@xc({7d})|{;\n}|
  1024.         {PADDIR  :=}|@xc({7b})|PADDIR|@xc({7d})|{;\n}|
  1025.         {SYSDIR  :=}|@xc({7b})|SYSDIR|@xc({7d})|{;\n}|
  1026.         {MEMBER  :=}|@xc({7b})|MEMBER|@xc({7d})|{;\n}|
  1027.         {OPENING :=}|@xc({7b})|OPENING|@xc({7d})|{;\n}|
  1028.         {FREC    :=}|@xc({7b})|FREC|@xc({7d})|{;\n}|
  1029.         {COMPRESS:=}|@xc({7b})|COMPRESS|@xc({7d})|{;\n}|
  1030.         {ARCHIVER:=}|@xc({7b})|ARCHIVER|@xc({7d})|{;\n}|
  1031.         {SOUND   :=}|@xc({7b})|SOUND|@xc({7d})|{;\n}|
  1032.         {LOGmode :=}|@xc({7b})|LOGmode|@xc({7d})|{;\n}|
  1033.         {INFO    :=}|@xc({7b})|INFO|@xc({7d})|{;\n}|
  1034.         {DIVE    :=}|@xc({7b})|DIVE|@xc({7d})|{;\n}|
  1035.         {STYPE   :=}|@xc({7b})|STYPE|@xc({7d})|{;\n}|
  1036.         {DORD    :=}|@xc({7b})|DORD|@xc({7d})|{;\n}|
  1037.         {FORD    :=}|@xc({7b})|FORD|@xc({7d})|{;\n}|
  1038.         {FMGR    :=}|@xc({7b})|FMGR|@xc({7d})|{;\n}|
  1039.         {R       :=}|@xc({7b})|R|@xc({7d})|{;\n}|
  1040.         {G       :=}|@xc({7b})|G|@xc({7d})|{;\n}|
  1041.         {B       :=}|@xc({7b})|B|@xc({7d})|{;\n}|
  1042.         {BELFIL  :=}|@xc({7b})|BELFIL|@xc({7d})|{;\n}|
  1043.         {VBELL   :=}|@xc({7b})|VBELL|@xc({7d})|{;\n}|
  1044.         {BELL    :=}|@xc({7b})|BELL|@xc({7d})|{;\n});
  1045.     write(file,
  1046.         {NATTOU  :=}|@xc({7b})|NATTOU|@xc({7d})|{;\n}|
  1047.         {CLICK   :=}|@xc({7b})|CLICK|@xc({7d})|{;\n}|
  1048.         {LOCK    :=}|@xc({7b})|LOCK|@xc({7d})|{;\n}|
  1049.         {TAB     :=}|@xc({7b})|TAB|@xc({7d})|{;\n}|
  1050.         {OAK     :=}|@xc({7b})|OAK|@xc({7d})|{;\n}|
  1051.         {REDIAL  :=}|@xc({7b})|REDIAL|@xc({7d})|{;\n}|
  1052.         {AP3     :=}|@xc({7b})|AP3|@xc({7d})|{;\n}|
  1053.         {RD3SPEED:=}|@xc({7b})|RD3SPEED|@xc({7d})|{;\n}|
  1054.         {LIMIT   :=}|@xc({7b})|LIMIT|@xc({7d})|{;\n}|
  1055.         {LIBLIST :=}|@xc({7b})|LIBLIST|@xc({7d})|{;\n}|
  1056.         {EXLIB   :=}|@xc({7b})|EXLIB|@xc({7d})|{;\n}|
  1057.         {RTNLST  :=}|@xc({7b})|RTNLST|@xc({7d})|{;\n}|
  1058.         {PAD     :=}|@xc({7b})|PAD|@xc({7d})|{;\n}|
  1059.         {MAILDOWN:=}|@xc({7b})|MAILDOWN|@xc({7d})|{;\n}|
  1060.         {MAILDEL :=}|@xc({7b})|MAILDEL|@xc({7d})|{;\n}|
  1061.         {CHKSDL  :=}|@xc({7b})|CHKSDL|@xc({7d})|{;\n}|
  1062.         {MAILBACK:=}|@xc({7b})|MAILBACK|@xc({7d})|{;\n}|
  1063.         {MAILEXP :=}|@xc({7b})|MAILEXP|@xc({7d})|{;\n}|
  1064.         {BMAILDWN:=}|@xc({7b})|BMAILDWN|@xc({7d})|{;\n}|
  1065.         {UST2CMD :=}|@xc({7b})|UST2CMD|@xc({7d})|{;\n}|
  1066.         {GUESTCMD:=}|@xc({7b})|GUESTCMD|@xc({7d})|{;\n}|
  1067.         {MFRM    :=}|@xc({7b})|MFRM|@xc({7d})|{;\n}|
  1068.         {TOPON   :=}|@xc({7b})|TOPON|@xc({7d})|{;\n}|
  1069.         {READNEW :=}|@xc({7b})|READNEW|@xc({7d})|{;\n}|
  1070.         {WEATHER :=}|@xc({7b})|WEATHER|@xc({7d})|{;\n}|
  1071.         {AREA    :=}|@xc({7b})|AREA|@xc({7d})|{;\n}|
  1072.         {CITY    :=}|@xc({7b})|CITY|@xc({7d})|{;\n}|
  1073.         {CHKBILL :=}|@xc({7b})|CHKBILL|@xc({7d})|{;\n}|
  1074.         {FMNEWS  :=}|@xc({7b})|FMNEWS|@xc({7d})|{;\n}|
  1075.         {ACCESS  :=}|@xc({7b})|ACCESS|@xc({7d})|{;\n}|
  1076.         {ACCESS2 :=}|@xc({7b})|ACCESS2|@xc({7d})|{;\n}|
  1077.         {FREETIME:=}|@xc({7b})|FREETIME|@xc({7d})|{;\n}|
  1078.         {UPT     :=}|@xc({7b})|UPT|@xc({7d})|{;\n}|
  1079.         {DNT     :=}|@xc({7b})|DNT|@xc({7d})|{;\n}|
  1080.         {LASTCHK :=}|@xc({7b})|LASTCHK|@xc({7d})|{;\n}|
  1081.         {SETTIME :=}|@xc({7b})|SETTIME|@xc({7d})|{;\n}|
  1082.         {FAPXEND :=}|@xc({7b})|FAPXEND|@xc({7d})|{;\n}|
  1083.         {PAD1   :=}|@xc({7b})|PAD1|@xc({7d})|{;\n}|
  1084.         {PAD2   :=}|@xc({7b})|PAD2|@xc({7d})|{;\n}|
  1085.         {PAD3   :=}|@xc({7b})|PAD3|@xc({7d})|{;\n}|
  1086.         {PAD4   :=}|@xc({7b})|PAD4|@xc({7d})|{;\n}|
  1087.         {PAD5   :=}|@xc({7b})|PAD5|@xc({7d})|{;\n});
  1088.     SETFILE1:={標準設定};
  1089.     };
  1090.  
  1091. /*    設定情報をもとに戻す    */
  1092. %CANCEL    {
  1093.     SNDMSG({erande_f.snd});
  1094.     footnote({本当にもとに戻してもいいですか？});
  1095.     select    ({本当にもとに戻してもいいですか？},
  1096.         Wtime4,,
  1097.         { Ｏ Ｋ },
  1098.         {
  1099.         case    (@filechk(SETFILE),
  1100.             {Yes},
  1101.             {
  1102.             setcdir(CDIR);
  1103.             #FAPXSET.SET;
  1104.             init;
  1105.             SETFILE1:={標準設定};
  1106.             })
  1107.         },
  1108.         { Ｎ Ｇ }
  1109.         );
  1110.     };
  1111.  
  1112. /*    設定情報をﾌｧｲﾙに保存する    */
  1113. %SAVE    {
  1114.     var    newfile    [64];
  1115.     SNDMSG({erande_f.snd});
  1116.     footnote({設定情報を保存するファイルを指定して下さい});
  1117.     newfile:=@filesel({USR});
  1118.     case    (newfile<>{},
  1119.         {Yes},
  1120.         {
  1121.         newfile:=@dir2(@getcdir)|newfile;
  1122.         writeSET(newfile);
  1123.         });
  1124.     };
  1125.  
  1126. /*    ﾌｧｲﾙから設定情報を読み込む    */
  1127. %LOAD    {
  1128.     var    newfile    [64];
  1129.     SNDMSG({erande_f.snd});
  1130.     footnote({設定情報を読み込むファイルを指定して下さい});
  1131.     newfile:=@filesel({USR});
  1132.     case    (newfile<>{},
  1133.         {Yes},
  1134.         {
  1135.         newfile:=@dir2(@getcdir)|newfile;
  1136.         case    (@filechk(newfile),
  1137.             {Yes},
  1138.             {
  1139.             %ExcPilot {#}|newfile;
  1140.             ExcPilot;
  1141.             init;
  1142.             SETFILE1:=@tail(newfile,{\})
  1143.             });
  1144.         });
  1145.     setcdir(CDIR);
  1146.     };
  1147.  
  1148. /*    設定する情報の選択    */
  1149. %FAPXSET{
  1150.     loop    ({
  1151.         SNDMSG({erande_f.snd});
  1152.         footnote({設定する情報を選択して下さい});
  1153.         select    ({設定する情報を選択して下さい  << 各種の設定 >>},
  1154.             Wtime4,{im({No})},
  1155.             {ユーザーＩＤとパスワードの設定},{setID;im({Yes})},
  1156.             {         モデムの設定         },
  1157.                 {setcdir(CDIR);#FAPXMDM.PLP;im({Yes})},
  1158.             {        電話番号の設定        },
  1159.                 {setcdir(CDIR);#FAPXTEL.PLP;im({Yes})},
  1160.             {      ログファイルの設定      },{setLOGF;im({Yes})},
  1161.             {      その他の通信の設定      },
  1162.                 {setcdir(CDIR);#FAPXSETC.PLP;im({Yes})},
  1163.             {         その他の設定         },{setETC;im({Yes})},
  1164.             {   ファイルマネージャの選択   },{setFMGR;im({Yes})},
  1165.             {      もとの設定にもどす      },{CANCEL;im({Yes})},
  1166.             {   設定をファイルに保存する   },{SAVE;im({Yes})},
  1167.             {  ファイルから設定を読み込む  },{LOAD;im({Yes})},
  1168.             {      設定を保存して終了      },
  1169.                 {writeSET(SETFILE);im({No})},
  1170.             {   保存しない(一時的な変更)   },
  1171.                 {SETFILE1:={一時設定};im({No})},
  1172.             { ＦＡＰＸ　ｖ}|VerLev|{の説明 },
  1173.                 {setcdir(CDIR);#FAPXHELP.PLP;im({Yes})}
  1174.             );
  1175.         });
  1176.     };
  1177.  
  1178. FAPXSET;
  1179.